home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / amigaoberon.module next >
Text File  |  1996-11-01  |  602b  |  37 lines
  1. MODULE AmigaOberon;
  2.  
  3. VAR
  4.   resstr : STRING;
  5.  
  6.   PROCEDURE ShowErrorList*;
  7.  
  8.   BEGIN
  9.     DoRexx("OberonError.wrx LIST","",resstr){@ASYNC}
  10.   END ShowErrorList;
  11.  
  12.   PROCEDURE LastError*;
  13.  
  14.   BEGIN
  15.     DoRexx("OberonError.wrx PREV","",resstr){@ASYNC}
  16.   END LastError;
  17.  
  18.   PROCEDURE CurrentError*;
  19.  
  20.   BEGIN
  21.     DoRexx("OberonError.wrx CURRENT","",resstr){@ASYNC}
  22.   END CurrentError;
  23.  
  24.   PROCEDURE NextError*;
  25.  
  26.   BEGIN
  27.     DoRexx("OberonError.wrx NEXT","",resstr){@ASYNC}
  28.   END NextError;
  29.  
  30.   PROCEDURE FirstError*;
  31.  
  32.   BEGIN
  33.     DoRexx("OberonError.wrx FIRST","",resstr){@ASYNC}
  34.   END FirstError;
  35.  
  36. END AmigaOberon.
  37.